home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / PluginSRC_EvenMore / HTML2Text.e < prev    next >
Encoding:
Text File  |  2002-03-13  |  1.1 KB  |  62 lines
  1. /*
  2.    HTML2Text
  3.    EvenMore FileIO plugin
  4.    Author: Chris Perver
  5.    Copyright (c) 2001
  6. */
  7.  
  8.  
  9. OPT REG=5
  10.  
  11. LIBRARY 'html2text.plugin',1,1,'Html2Text 1.13' IS em_main, em_end, em_info, em_pluginid, em_begin, em_format
  12.  
  13. MODULE 'tools/ctype', '*epo', '*converthtml'
  14.  
  15. DEF mem2, len2
  16.  
  17.  
  18. PROC em_isdatatype(name)
  19.   DEF fname[256]:STRING
  20.   UpperStr(StrCopy(fname, FilePart(name)))
  21.   IF     InStr(fname, '.HTM') > 0
  22.     RETURN TRUE
  23.   ELSEIF InStr(fname, '.ASP') > 0
  24.     RETURN TRUE
  25.   ELSEIF InStr(fname, '.SHTM') > 0
  26.     RETURN TRUE
  27.   ELSEIF InStr(fname, '.PHP') > 0
  28.     RETURN TRUE
  29.   ELSE
  30.     RETURN FALSE
  31.   ENDIF
  32. ENDPROC
  33.  
  34. -> *** STANDARD PROCS FOR PLUGINS
  35.  
  36.  
  37. PROC em_main(epo:PTR TO em_pluginobj)
  38.  -> mem2 := epo.nbuffer
  39.   mem2, len2  := convhtml(epo.buffer, 0, epo.length, epo.nbuffer, epo.nlength)
  40.  -> epo.length  := len2
  41.   epo.nlength := len2
  42.   RETURN TRUE
  43. ENDPROC
  44.  
  45. PROC em_begin(epo:PTR TO em_pluginobj)
  46.   IF em_isdatatype(epo.filename)
  47.     RETURN "MEM", (epo.length * 2)
  48.   ELSE
  49.     FALSE
  50.   ENDIF
  51. ENDPROC
  52.  
  53. PROC em_end()      IS EMPTY
  54.  
  55. PROC em_info()     IS 'HTML2Text 1.13'
  56.  
  57. PROC em_pluginid() IS "FILE"
  58.  
  59. PROC em_format()   IS 'HTML'
  60.  
  61. PROC main()        IS EMPTY
  62.